﻿Imports DTO
Imports BLL

Public Class Pagamento
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dtoVenda As New VendaDTO

        If Session("carrinho") IsNot Nothing Then 'Se o carrinho existir
            dtoVenda.pProduto = Session("carrinho")

            CalcularValorTotal(dtoVenda)
        End If
    End Sub

    Protected Sub btnPagar_Click(sender As Object, e As EventArgs) Handles btnPagar.Click
        Dim dtoVenda As New VendaDTO
        Dim bllVenda As New VendaBLL

        Dim x As Integer = 0

        Try
            If Session("login") IsNot Nothing Then 'Se o carrinho existir
                dtoVenda.pCliente = Session("login")
            End If
            If Session("carrinho") IsNot Nothing Then 'Se o carrinho existir
                dtoVenda.pProduto = Session("carrinho")
            End If


            dtoVenda.pBandeira = ddlBandeiraCartao.SelectedItem.Text
            dtoVenda.pCodigoSeguranca = txtCodigoSeguranca.Text
            dtoVenda.pDataValidade = txtDataValidade.Text
            dtoVenda.pNumeroCartao = txtNumCartao.Text

            bllVenda.Incluir(dtoVenda)

            Response.Redirect("Finalizacao.aspx")

        Catch ex As Exception

        End Try
    End Sub

    Sub CalcularValorTotal(venda As VendaDTO)
        Dim x As Integer = 0
        Dim valorTotal As Double = 0

        While x < venda.pProduto.Count()
            valorTotal = valorTotal + venda.pProduto(x).pValorTotal
            x = x + 1
        End While
        lblValorTotal.Text = lblValorTotal.Text & valorTotal
    End Sub
End Class